# first file

base_dir <- "./"
in_data_dir <- paste0(base_dir, "data/")
fig_dir <- paste0(base_dir, "temp_fig/")
out_data_dir <- paste0(base_dir, "temp_data/")

setwd(base_dir)

dir.create(out_data_dir)
dir.create(fig_dir)

source("R/common-data.R")
